home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / ungepackt / 2_96 / apd-2-96-2 / tips&tricks / rename.rx next >
Text File  |  1996-01-25  |  433b  |  21 lines
  1. /* Rename.rx macht aus Groß- Kleinbuchstaben und
  2.    benennt alle übergebenen Dateinamen um */
  3.  
  4. options results
  5. addlib("locale.library",0,-30,38)
  6. parse arg filenames
  7.  
  8. do while filenames ~= ''
  9.  
  10.    parse var filenames name filenames
  11.    lenge = length(name)
  12.    neuname = ""
  13.  
  14.    do lauf = 1 to lenge
  15.       neuname = neuname ||,
  16.                 ConvToLower(SubStr(name,lauf,1))
  17.    end
  18.  
  19.    address command 'rename "'name'" "'neuname'"'
  20. end
  21.